Top 10k strings from Derby Day (1982)(CRL Group)[a].tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TZX] /

Back to the directory listing

   6 ;"                                ":
   6 ;"                                "
   2 Parade Ring
   2 ;"Press 'Y' if correct 'N' if not"
   2 ,q,a,q,q,q,q
   2                                                    "
   2                                                                                                                           
   2            
   2           
   1 z;" Basic program"
   1 w(f)=w(f+1
   1 w(f)=w(f)-l*10
   1 version=4 
   1 version=3 
   1 sound=sound+.25
   1 r,s,r,s,r,s,r,s
   1 d         
   1 c,c,b,j,m,j,f,g
   1 c,c,b,j,m,j,
   1 c,c,b,f,j,m,m,j
   1 c,c,b,f,f,f,f,f
   1 bkr>100000
   1 bkr=aw+bw+cw+dw+ew
   1 bkr=aa+bb+cc+dd+ee
   1 a,a,a,s,r,s,r,s
   1 YOU CAN'T AFFORD IT-BET AGAIN 
   1 WIN OVER `100000
   1 WAITING FOR PHOTO FOR PLACES
   1 SUB-ROUTINE
   1 START OF RACE
   1 SNAIL     TORTOISE  SPEEDY    LAME DUCK DR. WHO   NO CHANCE RED WINE  BEER BARONOVERCOAT  PINK TIGERYOGI BEAR RAINBOW IISUNNY BOY JASMINE   JERRY CAN TOBAMORRA HOBBYHORSEKING KONG QUEEN BEE ROYAL ANDYRED RUM   EASY GO   DAWN DIVERCANOODLE  LADYFISH  MISS SHAPEPOPSIS JOYORANGE TIPTEA-POT   WINDY LAD WARGAME   SIR GERARDFAIR MADAMSTAR WARS LUXURY    GREENHORN GIGGLE    SECRET SINSEA PAGO  HARRY O   H
   1 SIZE OF PROGRAM ROUTINE
   1 SET-UP INITIAL ARRAYS
   1 SET INITIAL VALUES
   1 SELECT RUNNERS + ODDS
   1 SELECT RUNNERS & ODDS
   1 RACE ROUTINE
   1 RACE DAY OVER
   1 PRINT WINNER
   1 PLAYER NAME SUB-ROUTINE
   1 O$="                                                                                           
   1 No more bets - lets start race 
   1 N$="                                                                                                                          
   1 M$="                                                                                                                          
   1 LTERNATIVE 3
   1 LOST ALL MONEY
   1 LOAD HORSES
   1 J$="                                         
   1 INTRODUCTION
   1 HORSE PARADE-BOOKMAKER
   1 ENTER HORSES NAMES
   1 ENTER DATA FOR 21 CHARS
   1 ENTER CONSTANTS
   1 END OF RACE
   1 END OF BOOKMAKER
   1 END OF BET SUB-ROUTINE
   1 END NAME ROUTINE
   1 DETERMINE PLACES
   1 DEFINE USER GRAPHICS
   1 BOOKMAKER DISPLAY
   1 BACKGROUND ROUTINE-RACE
   1 ALTERNATIVE 2
   1 ALTERNATIVE 1
   1 ALTERNATIVE 
   1 ACCEPT PLAYERS NAMES
   1 ACCEPT BETS & DISPLAY
   1 ;l$;es;p$;" "
   1 ;l$;ee;p$;
   1 ;l$;ds;p$;" "
   1 ;l$;dd;p$;
   1 ;l$;cs;p$;" "
   1 ;l$;cc;p$;
   1 ;l$;bs;p$;" "
   1 ;l$;bb;p$;
   1 ;l$;as;p$;" "
   1 ;l$;aa;p$;
   1 ;"______________"
   1 ;"_________"
   1 ;"Value of Stake";
   1 ;"Sorry, I said 1 to 5 players."
   1 ;"RACE ";r;
   1 ;"Press 'y' for another game."
   1 ;"Please tell me their name(s) - "
   1 ;"Please enter odds for each horse"
   1 ;"Please enter names of 5 horses  "
   1 ;"Player No.";h;" is "
   1 ;"O.K. ";p;" person(s) want to play."
   1 ;"No. 5 is the WINNER"
   1 ;"No. 4 is the WINNER"
   1 ;"No. 3 is the WINNER"
   1 ;"No. 2 is the WINNER"
   1 ;"No. 1 is the WINNER"
   1 ;"If he'd stayed you'd have had;-"
   1 ;"Horse No.? (1 
   1 ;"DERBY DAY"
   1 ;"CHOOSE VERSION - Press 1 to 4"
   1 ;"5 ";Q$(r(5
   1 ;"4 ";Q$(r(4
   1 ;"3 ";Q$(r(3
   1 ;"2 ";Q$(r(2
   1 ;"1 ";Q$(r(1
   1 ;"(Maximum 2 digits for each No. "
   1 ;"(Both figures required -        "
   1 ;" the bookmaker has left!...."
   1 ;" e.g. 4/1 enter 4 then 1        "
   1 ;" between you!"
   1 ;" You have won over ";l$;"100,000";p$
   1 ;" Wins  ";l$;ew;p$
   1 ;" Wins  ";l$;dw;p$
   1 ;" Wins  ";l$;cw;p$
   1 ;" Wins  ";l$;bw;p$
   1 ;" Wins  ";l$;aw;p$
   1 ;" Well done!  "
   1 ;" Unfortunately it looks as if"
   1 ;" Press 'y' for yes"
   1 ;" Player (1 to 5) or (9 to end)  "
   1 ;" O.K. Hope you enjoyed the game."
   1 ;" Loses ";l$;ew;p$
   1 ;" Loses ";l$;dw;p$
   1 ;" Loses ";l$;cw;p$
   1 ;" Loses ";l$;bw;p$
   1 ;" Loses ";l$;aw;p$
   1 ;" JOCKEYS HANDICAP "
   1 ;" HONEST CLIVE "
   1 ;" (Note:- In all  versions  BETS  are only accepted in either `'s or p's (option on  next screen) and winnings are rounded UP to  the nearest ` or p.)"
   1 ;" (Maximum 10 letters each.)"
   1 ;" ";l$;ee;p$
   1 ;" ";l$;dd;p$:
   1 ;" ";l$;cc;p$:
   1 ;" ";l$;bb;p$:
   1 ;" ";l$;aa;p$:
   1 ;" ";hh;" -Bet (Min. ";l$;"1";p$;" - Max.= All  )"
   1 ;" ";g$;" ";
   1 ;"  seven races.    See how many","  winners you can pick."
   1 ;"  see what the odds are on the"
   1 ;"  next race."
   1 ;"  first race."
   1 ;"  back one horse in each race."
   1 ;"  all their money!"
   1 ;"  You have chosen  'p's  "
   1 ;"  You have chosen  '`'s  "
   1 ;"  The final option is whether    to have an initial stake and    place bets in '`'s or 'p's.    "
   1 ;"  Thank you."
   1 ;"  SELLERS  PLATE  "
   1 ;"  RAMTOP  STAKES  "
   1 ;"  RAINBOW STAKES  "
   1 ;"  Oh dear, everyone has lost"
   1 ;"  NOVICES  PLATE  "
   1 ;"  Lets meet the bookmaker  and"
   1 ;"  Do you want to start again?"
   1 ;"  CHALLENGE  CUP  "
   1 ;"  ""Press  'L'  for 'Pounds'          or   'P'  for 'Pence'     "
   1 ;"   or  'n' for no"
   1 ;"   Your  'friendly'  bookmaker","  'Honest Clive' Spectrum will","  pay  the  full odds  on  the","  winner and  1/4 the odds  on","  second place."
   1 ;"   Up to five players may make","  bets.    Each  player starts","  with `100 (or 100p), and may "
   1 ;"   There  are  4  alternative      versions available:-"
   1 ;"   That's the end of the day's   racing."
   1 ;"   Press any key to see other      options available."
   1 ;"   Let's see how much you all    have left!"
   1 ;"   4) DEAD SERIOUS PUNTER              YOU name the horses and         enter the odds!"
   1 ;"   3) SERIOUS PUNTER                   Automatic selection  of         horses  but  YOU  enter         the odds."
   1 ;"   2nd - No.";p2;"     3rd - No.";p3
   1 ;"   2) AMATEUR PUNTER                   Automatic selection  of         horses but shorter odds."
   1 ;"   1) FUN                              Automatic selection  of         horses and long odds."
   1 ;"    Your Spectrum  will be the","  bookmaker to take your bets."
   1 ;"    This is  a race meeting of"
   1 ;"    THE  DERBY    "
   1 ;"    PLAYER     HORSE No  STAKE  "
   1 ;"     VERSION ";version;" CHOSEN.          "
   1 ;"      2/7 enter 2 then 7        "
   1 ;"           "
   1 ;"            "
   1 ;"                  ":
   1 ;"                           "
   1 ;"                                " 
   1 ,j,f,j,j,j
   1 ,e,m,n,n,o
   1 )="YOGI BEAR "
   1 )="WINDY LAD "
   1 )="WARGAME   "
   1 )="TORTOISE  "
   1 )="TOBAMORRA "
   1 )="TEA-POT   "
   1 )="SUNNY BOY "
   1 )="STAR WARS "
   1 )="SPEEDY    "
   1 )="SNAIL     "
   1 )="SIR GERARD"
   1 )="SECRET SIN"
   1 )="SEA PAGO  "
   1 )="ROYAL ANDY"
   1 )="RED WINE  "
   1 )="RED RUM   "
   1 )="RAINBOW II"
   1 )="QUEEN BEE "
   1 )="POPSIS JOY"
   1 )="PINK TIGER"
   1 )="OVERCOAT  "
   1 )="ORANGE TIP"
   1 )="NO CHANCE "
   1 )="MISS SHAPE"
   1 )="LUXURY   "
   1 )="LAME DUCK "
   1 )="LADYFISH  "
   1 )="KING KONG "
   1 )="JERRY CAN "
   1 )="JASMINE   "
   1 )="HOBBYHORSE"
   1 )="HARRY O   "
   1 )="GREENHORN "
   1 )="GIGGLE    "
   1 )="FAIR MADAM"
   1 )="EASY GO   "
   1 )="DR. WHO   "
   1 )="DAWN DIVER"
   1 )="CANOODLE  "
   1 )="BEER BARON"
   1 );" Total memory"
   1 (es*o(eh,1
   1 (ds*o(dh,1
   1 (cs*o(ch,1
   1 (bs*o(bh,1
   1 (as*o(ah,1
   1 (((es*o(eh,1
   1 (((ds*o(dh,1
   1 (((cs*o(ch,1
   1 (((bs*o(bh,1
   1 (((as*o(ah,1
   1 "Max.10 letters",F$
   1 "If names correct - enter 'Y'",F$
   1 "How many players?",p
   1 "Horse 5 ",z
   1 "Horse 4 ",z
   1 "Horse 3 ",z
   1 "Horse 2 ",z
   1 "Horse 1 ",z
   1 ";"                    "
   1  COMPUTER RENTALS Ltd. 1982
   1          VERSE 800   
   1          CHORUS 900  
   1                                                    V
   1                                                    M
   1                                                                                            
   1